home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / DATES.DMO < prev    next >
Text File  |  1996-07-04  |  4KB  |  81 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   DATES   .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. $INCLUDE "DAS-NB02.INC"
  19. COLOR 7, 0
  20. CLS
  21.  
  22.   PRINT "fSYSdate$           = "; fSYSDATE$
  23.   PRINT "fSYSYMD?(Y??,M?,D?) =" ; fSYSYMD?(Y??,M?,D?), Y??, M?, D?
  24.   PRINT "fSYSday?            =" ; fSYSday?
  25.   PRINT
  26.   '─────────────────────────────────────────────────────────────────────────
  27.   Dyte$ = "02-26-1995"        ' change this to the 29th and watch closely
  28.   Date2YMD Dyte$, Y??, M?, D?
  29.  
  30.   PRINT USING "Y??=####  M?=##  D?=##"; Y??, M?, D?
  31.   PRINT "fYMD2Date$  (Y??,M?,D?) = "; fYMD2DATE$ (Y??,M?,D?)
  32.   PRINT "fYMD2Date8$ (Y??,M?,D?) = "; fYMD2DATE8$   (Y??,M?,D?)
  33.   PRINT "fYMD2day?   (Y??,M?,D?) =" ; fYMD2day? (Y??,M?,D?)
  34.   PRINT
  35.   '─────────────────────────────────────────────────────────────────────────
  36.   Days?? = fYMD2days??  (Y??,M?,D?)
  37.   PRINT "fYMD2days??    (Y??,M?,D?)       =" ; Days??
  38.   PRINT "fDATE2YMDck??  (Dyte$,Y??,M?,D?) =" ; fDate2YMDck?? (Dyte$,Y??,M?,D?)
  39.   PRINT "fDate2days??   (Dyte$)           =" ; fDate2Days??  (Dyte$)
  40.   PRINT "fDate2DaysCk?? (Dyte$)           =" ; fDate2DaysCk??(Dyte$)
  41.   PRINT "fSYS2days??                      =" ; fSYS2Days??
  42.   PRINT "fDays2day?     (Days??)          =" ; fDays2day?    (Days??)
  43.   PRINT "fDays2YMD?     (Days??,Y??,M?,D?)=" ; fDays2YMD?    (Days??,Y??,M?,D?)
  44.   PRINT "fDays2Date$    (Days??)          = "; fDays2Date$   (Days??)
  45.   PRINT "fDays2Date8$   (Days??)          = "; fDays2Date8$  (Days??)
  46.   PRINT
  47.   '────────────────────────────────────────────────────────────────
  48.   Dyte?? = fDate2Word??(Dyte$)
  49.   Word2YMD Dyte??,Y??,M?,D?
  50.   PRINT "fDate2Word??  (Dyte$)            =" ; Dyte??
  51.   PRINT " Word2YMD     (Dyte??,Y??,M?,D?) =" ; Y??, M?, D?
  52.   PRINT "fYMD2word??   (Y??,M?,D?)        =" ; fYMD2word??(Y??,M?,D?)
  53.   PRINT "fWord2Date8$  (Dyte??)           = "; fWord2Date8$(Dyte??)
  54.   '──────────────────────────────────────────────────────────────────
  55.   LOCATE 25, 60 : PRINT "THUMP A KEY"; : WHILE NOT INSTAT : WEND
  56.   '──────────────────────────────────────────────────────────────────
  57.   CLS
  58.   Days?? = fSYS2Days??
  59.  
  60.   SetDateFormat 0, 47
  61.   PRINT "IN AMERICA:   Yesterday was: "; fDays2Date$( Days?? - 1 )
  62.   PRINT "                   Today is: "; fDays2Date$( Days??     )
  63.   PRINT "           Tomorrow will be: "; fDays2Date$( Days?? + 1 )
  64.   PRINT "          Next week will be: "; fDays2Date$( Days?? + 7 )
  65.   PRINT
  66.  
  67.   SetDateFormat 1, 45
  68.   PRINT "IN EUROPE:    Yesterday was: "; fDays2Date$( Days?? - 1 )
  69.   PRINT "                   Today is: "; fDays2Date$( Days??     )
  70.   PRINT "           Tomorrow will be: "; fDays2Date$( Days?? + 1 )
  71.   PRINT "          Next week will be: "; fDays2Date$( Days?? + 7 )
  72.   PRINT
  73.  
  74.   SetDateFormat 2, 46
  75.   PRINT "IN JAPAN:     Yesterday was: "; fDays2Date$( Days?? - 1 )
  76.   PRINT "                   Today is: "; fDays2Date$( Days??     )
  77.   PRINT "           Tomorrow will be: "; fDays2Date$( Days?? + 1 )
  78.   PRINT "          Next week will be: "; fDays2Date$( Days?? + 7 )
  79.   PRINT
  80.   PRINT USING "But to us it is only ##,### days since Jan 01,1872"; Days??
  81.